"! "
UnitTest subclass: ByteArrayTest [
<category: ''>
"! "
testString [
|a|

a := ByteArray new: 3.
a at: 1 put: 109.
a at: 2 put: 111.
a at: 3 put: 111.
self assert: ((a asString) = 'moo')
]

]

"! "
MetaUnitTest subclass: MetaByteArrayTest [
<category: ''>
]

